home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / amiga / DosStdIO.mod < prev    next >
Encoding:
Modula Implementation  |  1995-01-24  |  895 b   |  35 lines
  1. IMPLEMENTATION MODULE DosStdIO ;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS, STRING ;
  4. IMPORT Dos ;
  5.  
  6. PROCEDURE ReadChar( ) : LONGINT ;
  7. BEGIN RETURN Dos.FGetC( Dos.Input( ) )
  8. END ReadChar ;
  9.  
  10. PROCEDURE WriteChar( c : LONGINT ) : LONGINT ;
  11. BEGIN RETURN Dos.FPutC( Dos.Output( ) , c )
  12. END WriteChar ;
  13.  
  14. PROCEDURE UnReadChar( c : LONGINT ) : LONGINT ;
  15. BEGIN RETURN Dos.UnGetC( Dos.Input( ) , c )
  16. END UnReadChar ;
  17.  
  18. PROCEDURE ReadChars( buf : ADDRESS ; num : LONGINT ) : LONGINT ;
  19. BEGIN RETURN Dos.FRead( Dos.Input( ) , buf , 1 , num )
  20. END ReadChars ;
  21.  
  22. PROCEDURE ReadLn( buf : STRING ; len : LONGINT ) : STRING ;
  23. BEGIN RETURN Dos.FGets( Dos.Input( ) , buf , len )
  24. END ReadLn ;
  25.  
  26. PROCEDURE WriteStr( s : STRING ) : LONGINT ;
  27. BEGIN RETURN Dos.FPuts( Dos.Output( ) , s )
  28. END WriteStr ;
  29.  
  30. PROCEDURE VWritef( format : STRING ; argv : ADDRESS ) ;
  31. BEGIN Dos.VFWritef( Dos.Output() , format , argv )
  32. END VWritef ;
  33.  
  34. END DosStdIO.
  35.